home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
frame17
< prev
next >
Wrap
Text File
|
1999-06-15
|
829b
|
33 lines
Category: Filter Factory Gallery P
Title: Frame 17...
Copyright: Copyright © Sidney Norton
Author: Sidney Norton
Filename: ffp17gal.8bf
R:put(c2d(x-val(0,0,X),y-val(1,0,Y)),1),(put(c2d(x-val(0,0,X),y-val(1,0,Y))^sin(M)%val(7,0,255),2)),put(c2m(x-val(0,0,X),y-val(1,0,Y))+mix(-val(6,0,M),0,sin(get(1)*val(6,0,100))+sin(get(2)*val(7,0,100))+512,1024),0),put(scl(get(0),0,val(2,0,M),-C,0),4),get(0)>val(2,0,M)?mix(sin(get(1)),ctl(3),x,512):c
G:get(0)>val(2,0,M)?mix(sin(get(1)),ctl(4),y,512):c
B:get(0)>val(2,0,M)?mix(sin(get(1)),ctl(5),x,512):c
A:a
ctl[0]: x movement
ctl[1]: y movement
ctl[2]: frame size
ctl[3]: red mix
ctl[4]: green mix
ctl[5]: blue mix
ctl[6]: ray length
ctl[7]: background mix
val[0]: 128
val[1]: 128
val[2]: 103
val[3]: 152
val[4]: 103
val[5]: 69
val[6]: 49
val[7]: 25